home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0769A.ZIP
/
LADORN.PRG
< prev
next >
Wrap
Text File
|
1980-01-01
|
1KB
|
53 lines
* LADORN.PRG
SET TALK OFF
SET DEVICE TO PRINT
SET SAFETY OFF
SELECT C
USE LADORN3
SELECT B
USE LADORN2
LOCATE FOR CODE = '001'
SELECT A
USE LADORN1
LOCATE FOR UPPER(COMPANY) = 'ASHTON'
@ 12,05 SAY LTRDATE
@ 14,05 SAY NAME
@ 15,05 SAY COMPANY
IF LEN(TRIM(ADDRESS1)) <> 0
@ PROW()+1,05 SAY ADDRESS1
ENDIF
IF LEN(TRIM(ADDRESS2)) <> 0
@ PROW()+1,05 SAY ADDRESS2
ENDIF
@ PROW()+1,05 SAY TRIM(CITY)+', '+STATE+' '+ ZIP
@ PROW()+2,05 SAY 'Dear '+DEAR
@ PROW()+1,05 SAY ' '
STORE 'PROW()' TO MRR
STORE '05' TO MCC
STORE 'PARA1' TO MPARA
DO LADORN1
SELECT A
@ PROW()+1,15 SAY '-- '+KEYWORD1
IF LEN(TRIM(KEYWORD2)) <> 0
@ PROW()+1,15 SAY '-- '+KEYWORD2
ENDIF 0
@ PROW()+1,05 SAY ' '
STORE 'PROW()' TO MRR
STORE '05' TO MCC
STORE 'PARA2' TO MPARA
DO LADORN1
@ PROW()+1,05 SAY ' '
STORE 'PROW()' TO MRR
STORE '05' TO MCC
STORE 'PARA3' TO MPARA
DO LADORN1
SELECT A
@ PROW()+2,05 SAY YOURS
@ PROW()+5,05 SAY FROM
@ PROW()+1,05 SAY TITLE
EJECT
SET CONSOLE ON
SET DEVICE TO SCREEN
RETURN